/* GUI CONVERTED from rcsqpm.p (converter v1.75) Thu May  3 03:10:28 2001 */
/* rcsqpm.p - CUSTOMER SEQUENCE SCHEDULE CONTROL FILE                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.7 $                                                       */
/*V8:ConvertMode=Maintenance                                            */
/* REVISION: 9.1      CREATED      : 02/18/99 BY: *N003* Dan Herman     */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/23/00 BY: *N0ND* Mark Brown       */
/* REVISION: 9.1      LAST MODIFIED: 09/06/00 BY: *N0RG* Mudit Mehta      */
/* $Revision: 1.7 $    BY: Kaustubh K.    DATE: 04/27/01 ECO: *P00K*      */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */

{mfdtitle.i "b+ "}

{rcpmform.i}

view frame mfrcpm-a.

mainloop:
repeat with frame mfrcpm-a:

   for first rcf_ctrl exclusive-lock:
   end.

   if not available rcf_ctrl then do:
      create rcf_ctrl.
      assign
         rcf_active = no
         rcf_inc_in_rss = yes
         .
      if recid(rcf_ctrl) = -1 then.
   end. /* if not available rcf_ctrl */

   display
      rcf_active
      rcf_sch_default
      rcf_inc_in_rss
      rcf_firm_seq_days
      rcf_packing_order
      rcf_seq_per_container
      rcf_merge_seq
      rcf_check_seq_tol
      rcf_max_tol
      rcf_shipper_print
      rcf_invoice_print
      rcf_asn_edi
      rcf_invoice_edi
      .

   update
      rcf_active
      rcf_sch_default
      rcf_inc_in_rss
      rcf_firm_seq_days
      rcf_packing_order
      rcf_seq_per_container
      rcf_merge_seq
      rcf_check_seq_tol
      rcf_max_tol
      rcf_shipper_print
      rcf_invoice_print
      rcf_asn_edi
      rcf_invoice_edi
      .

   assign
      rcf_mod_userid = global_userid
      rcf_mod_date = today
      rcf_mod_pgm = program-name(1).

   for first mfc_ctrl where
         mfc_field = "enable_sequence_schedules" and
         mfc_module = "ADG" exclusive-lock:
   end.

   if not available mfc_ctrl and rcf_active then do:
      create mfc_ctrl.
      assign
         mfc_label = getTermLabel("ENABLE_SEQUENCE_SCHEDULE",24)
         mfc_field = "enable_sequence_schedules"
         mfc_module = "ADG"
         mfc_type = "l"
         .
   end.
   mfc_logical = rcf_active.

end. /* mainloop */

status input.
